#!/usr/bin/perl
 
sub perl_addition {
# all variable passed to the perl subroutines are stored in special @_ variable
	($number1, $number2) = @_;
# return the result
return  $number1 + $number2 ;
}
 # print result by calling perl_addition() subroutine
print "Number1 + Number2 = " . perl_addition(4, 2) . "\n"; 